Magnum One/Magnum One (Mid-American Digital) (Disc Manufacturing).iso/d3/dbmail.arc/ML0200.PRG

Text File | 1988-06-18 | 4KB | 182 lines

*************************************************************
*  ML0200.CMD - ROUTINE TO PRINT LABELS FROM CONTACT FILE   *    9/27/84
*************************************************************
SET TALK OFF
ERASE
SELECT PRIMARY
IF .NOT.FILE('&FDEV..DBF')
    ? 'Mailing List File, &FDEV, not on diskette.  Press any key to continue.'
    RELEASE OPT,OPT1,OPT2,RESP,RESP1,CV
    WAIT
    RETURN
    ENDIF
IF FILE('MLABELS.TXT')
    ?
    ? 'LABEL PRINT FILE FOUND ON DISK. THIS PROGRAM WILL OVERWRITE THE DATA ON FILE.'
    ACCEPT '    DO YOU WISH TO CONTINUE? (Y/N) ' TO RESP
    IF !(RESP)='N'
        RELEASE RESP
        RETURN
        ENDIF
    ENDIF
RELEASE RESP
ERASE
@ 6,10 SAY 'Select Records from the Mailing List Database'
@ 8,10 SAY '     1 - Select Data from ALL Records'
@ 9,10 SAY '     2 - Select Data from Input Reference Code'
@ 10,10 SAY '     3 - Select Data from Logical (Boolean) Selection Criteria'

STORE 0 TO OPT,OPT1,OPT2,OPT3
@ 12,10 SAY 'Input Option  ' GET OPT PICTURE '9'
READ
IF OPT<1 .OR. OPT>3
    @ 14,1 SAY 'Invalid Option Code Entered. Press any Key to Return to Menu.'
    RELEASE OPT,OPT1,OPT2,CV,OPT3
    WAIT
    RETURN
    ENDIF
@ 15,10 SAY 'Select Print Sequence'
@ 17,10 SAY '     1 - Zip Code'
@ 18,10 SAY '     2 - Alphabetically by Name'
@ 20,10 SAY 'Input Option  ' GET OPT1 PICTURE '9'
READ
CLEAR GETS

DO ML0205

ERASE
@ 3,10 SAY 'Select Output Desired'
@ 5,10 SAY '        1 - Create Output FILE fo Input to Word Processor'
@ 6,10 SAY '          (Print Custom Letters, rollodex, Special Labels)'
@ 8,10 SAY '        2 - Print Mailing Labels ( 1 up, size 3"x1")'
@ 10,10 SAY 'Input Option ' GET OPT3 PICTURE '9'
store 0 to n
do while n<10
store n+1 to n
enddo
release n
READ
CLEAR GETS

NOTE ERASE
@ 16,10 SAY 'Update Data Records Selected for Labels with User Specified Code'
@ 18,10 SAY '        1 - Do NOT Update Selected Records with Code'
@ 20,10 SAY '        2 - Update Selected Records with User Specified Code'
@ 22,10 SAY 'Input Option ' GET OPT2 PICTURE '9'
READ

IF OPT2=2
    STORE '            '    TO CV
    @ 15,5 SAY 'Enter User Specified Code to Update Selected Records'
    @ 17,10 SAY 'WARNING: The Update Routine Will NOT Insert the Code if INSUFFICIENT'
    @ 19,10 SAY 'Space Remains in the Code Field. No Message Will Be Given.'
    @ 21,10 SAY 'Enter Code Value ' GET CV PICTURE 'XXXXXXXXXXXX'
    READ
ELSE
    STORE 1    TO OPT2
    ENDIF

USE &FDEV

IF OPT=1
    DO ML0201
    ENDIF
IF OPT=2
    DO ML0202
    ENDIF
IF OPT=3
    DO ML0203
    IF .NOT.FILE('MLSUB1.DBF')
        RELEASE OPT,OPT1,RESP,RESP1,OPT2,CV,OPT3
        SELECT SECONDARY
        USE
        SELECT PRIMARY
        USE
        RETURN
        ENDIF
    ENDIF

SELECT PRIMARY
USE MLSUB1
GOTO BOTTOM
?
? #
?? ' RECORDS SELECTED.'

IF #>0

?
ACCEPT 'Do you wish to continue? (Y/N) ' TO RESP1
IF !(RESP1)='N'
    RELEASE OPT,OPT1,RESP,RESP1,OPT2,CV,TRIGGER,CMNT1,CMNT2,OPT3
    SELECT SECONDARY
    USE
    SELECT PRIMARY
    USE
    RETURN
    ENDIF

SET TALK ON
IF OPT1=2
    INDEX ON !(INST) TO MLZIPX
ELSE
    INDEX ON ZIP TO MLZIPX
    ENDIF
SET TALK OFF

DO ML0204

SELECT SECONDARY
USE
SELECT PRIMARY
USE

DELETE FILE MLSUB1.DBF
IF OPT3=2
    DO ML0207
ELSE
    USE MLSUB2
    COPY TO MLABELS DELIMITED WITH ,
    ENDIF

IF OPT2=2
    DO ML0206
    ENDIF

SELECT SECONDARY
USE
SELECT PRIMARY
USE
DELETE FILE MLZIPX.NDX
DELETE FILE MLSUB2.DBF

IF OPT3#2
    @ 5,10 SAY 'To Print labels, use the MAILMERGE option in WORDSTAR'
    @ 7,10 SAY 'The print file name is: MLPRINT'
    @ 9,10 SAY 'Enter this value when MAILMERGE asks for the file to print'
    @ 14,10 SAY 'To Prepare a personalized letter, enter the text of your letter'
    @ 15,12 SAY 'in the file LETTER.TXT. The file LETTER.FMT has a sample'
    @ 16,12 SAY 'layout and suggestions.'
    @ 18,10 SAY 'To Print personalized letters, use the MAILMERGE option in WORDSTAR'
    @ 20,10 SAY 'The print file name is: LETTRPRN'
    @ 22,10 SAY 'Enter this value when MAILMERGE asks for the file to print'
    ? CHR(7)
    STORE ' ' TO OPT
    @ 23,15 SAY 'Hit <cr> to continue' GET OPT PICTURE '!'
    READ
    CLEAR GETS
    ENDIF {opt3#2}
ELSE {#>0}

ERASE
@ 12,10 SAY 'NO Data to Print.  Press Any Key to Continue.'
WAIT
SELECT SECONDARY
USE

ENDIF {#>0}
RELEASE OPT,OPT1,OPT2,CV,RESP1,OPT3
RETURN
3
RETURN